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OUTPUT FLAT FILE 1 



NAME 


AMOUNT 


UNIT 


STATE 


TOM SMITH 
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MERGED DATASET: FINAL 



# 


VARIABLE 


1 


CUSTOMER 


2 


NAME 


3 


AMOUNT 


4 


UNIT 


5 


STATE 


6 


SHIP COST 



TYPE 



LEN 



POS 



NUM 

CHAR 

NUM 

NUM 

CHAR 

NUM 



5 
7 
8 
8 
7 
8 



OBS 



NAME 



AMOUNT 



UNIT 
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12 
28 
30 
38 



STATE 



SHIP 
COST 



1 TOM SMITH 13.00 1 CA 5.00 

2 TONI RICE 51.00 2 CA 5.00 

3 JANE DOE 17.50 3 TX 10.00 

4 THOMAS LEE 90.10 5 FL 20.00 

5 FRANK STANLEY 20.50 7 MA 15.00 

6 CARLOS LOPEZ 43.50 9 FL 20.00 

7 APRIL HOLMES 58.00 10 CA 5.00 
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data Final; 
set Total; 

if unit > '0' then total = unit* 
amount+Ship Cost; 
else total = '0'; 
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PROGRAM 
602 

\ 
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612 
614 
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618^ 



proc sql; 
connect to DB2; 
create table Temp.x as 
from connection to DB2 

( 

select 

tablel .name, 

tablel.ssn, 

tablel .phone, 

tablel .amount, 

tablel .unit 
from tablel 

) 

disconnect from DB2; 
quit; 



SECTION 
604 



620 
622 
624 



--clata output; 
set x; 

if unit > '0' then total = unit * amount; else total = '0'; 
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%macro DB2CRT(dataname); 

proc dbload dbms=DB2 data=Temp.&dataname 

database DB2 

table = "&dataname"; 

load; 

run; 

quit; 
%mend DB2CRT 
%DB2CRT(output) 
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